Программа, позволяющая сгенерировать случайное число, вывести на экран это число, а также сумму и произведение его цифр.
Алгоритм решения задачи:
- random(900) генерирует случайное число от 0 до 899. Если прибавить к нему 100, то получится диапазон от 100 до 999 включительно, т. е. охватывает все трехзначные числа.
- Чтобы извлечь из числа цифру сотен надо его разделить нацело на 100.
- Для получения цифры десяток можно сначала разделить нацело на 10, а затем найти остаток от деления на 10.
- Единицы извлекаются путем нахождения остатка от деления числа на 10.
var
n: integer;
a,b,c: byte;
begin
randomize;
n := random(900) + 100;
writeln(n);
a := n div 100;
b := n div 10 mod 10;
c := n mod 10;
writeln('Сумма: ',a+b+c);
writeln('Произведение: ',a*b*c);
end.
Похожие записи/страницы:
- Дано целое число, большее 999. Используя одну операцию деления нацело и одну операцию взятия остатка от деления,…
- Дано двузначное число.Вывести вначале его левую цифру(десятки),а затем-его правую цифру(единицы). Для нахождения…
- Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, найти количество и…
- С клавиатуры вводится целое число X из промежутка [100,9999].если число четырёхзначное,то найти сумму его цифр,а…
- Дано натуральное число. Определить сумму его цифр, больших a (значение a вводится с клавиатуры, 0
- Найти произведение цифр заданного целого четырехзначного числа - Pascal(Паскаль)
- Найти произведение цифр заданного целого четырехзначного числа - Pascal(Паскаль)
- Составить программу, которая по заданному положительному целому числу n (длинное целое) находит сумму s и…